www.gusucode.com > 婚庆仪礼策划公司网站系统源代码 梦紫色 > 婚庆仪礼策划公司网站系统源代码 梦紫色/Admin/inc/adminnews_body.asp
<%sub adminnews_body()
dim totalnews,Currentpage,totalpages,i
Language=request.QueryString("language")
if Language<>"" then
sql="select news.* from news,news_class where news_class_id=news_class.news_id and news_class.news_language=" & language &" order by news.news_id desc"
else
sql="select news.* from news,news_class where news_class_id=news_class.news_id and news_class.news_language=0 order by news.news_id desc"
end if
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<HTML><HEAD><TITLE>管理中心</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312"><LINK
href="inc/djcss.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
</HEAD>
<body onkeydown=return(!(event.keyCode==78&&event.ctrlKey)) background=inc/dj_bg.gif>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<tr>
<td bgcolor="#E8E8E8">信息管理</font></td>
<td bgcolor="#E8E8E8" colspan="4"><!--[<a href="admin_news.asp?language=0">中文栏目</a>][<a href="admin_news.asp?language=1">英文栏目</a>] --></td>
</tr>
<tr bgcolor="#E8E8E8" align="center">
<td class="chinese" width="10%" bgcolor="#F5F5F5">编号</td>
<td class="chinese" width="40%" bgcolor="#F5F5F5">标题&发表时间</td>
<td class="chinese" width="30%" bgcolor="#F5F5F5">类别</td>
<td class="chinese" width="20%" bgcolor="#F5F5F5">操作</td>
</tr>
<%if Not rs.EOF then
dim newsperpage
newsperpage=10
rs.movefirst
rs.pagesize=newsperpage
if trim(request("page"))<>"" then
page1=trim(request("page"))
if check_num(page1)=true then
currentpage=clng(request("page"))
if currentpage>rs.pagecount then
currentpage=rs.pagecount
End if
else
currentpage=1
end if
else
currentpage=1
End if
totalnews=rs.recordcount
if currentpage<>1 then
if (currentpage-1)*newsperpage<totalnews then
rs.move(currentpage-1)*newsperpage
dim bookmark
bookmark=rs.bookmark
End if
End if
if (totalnews mod newsperpage)=0 then
totalpages=totalnews\newsperpage
else
totalpages=totalnews\newsperpage+1
End if
i=0
Do While Not rs.EOF and i<newsperpage
%>
<tr>
<td bgcolor="#FFFFFF" class="chinese" align="center"><%=rs("news_id")%> </td>
<td bgcolor="#FFFFFF" class="chinese"><a href="../shownews.asp?news_id=<%=rs("news_id")%>" target="_blank"><%=left(rs("news_title"),30)&"..."%></a> <span class="date"><%=rs("news_date")%></span> </td>
<td align="center" bgcolor="#FFFFFF" class="chinese">
<% sql ="select news_type from News_Class where news_id ="&rs("news_class_id")&""
set rs2 = server.CreateObject("adodb.recordset")
rs2.open sql,conn,3
response.Write(rs2("news_type"))
rs2.close
%>
</td>
<td bgcolor="#FFFFFF" class="chinese" align="center"><a href="admin_news.asp?id=<%=rs("news_id")%>&action=editnews#editnews">修改</a>
<a href="admin_news.asp?id=<%=rs("news_id")%>&action=delnews#delnews">删除</a> <a href="../riyoo_shownews.asp?news_id=<%=rs("news_id")%>" target="_blank">查看</a></td>
</tr>
<%
i=i+1
rs.movenext
loop
else
if rs.EOF and rs.BOF then%>
<tr align="center">
<td bgcolor="#FFFFFF" colspan="4" class="chinese">当前没有信息！</td>
</tr>
<%End if
End if%>
</table>
<table align="center" width="98%" border="0" cellspacing="0" cellpadding="0">
<form name="form2" method="post" action="admin_news.asp">
<tr>
<td class="chinese" align="right"><%=currentpage%> /<%=totalpages%>页,<%=totalnews%>条记录/<%=newsperpage%>篇每页.
<%
i=1
showye=totalpages
if showye>10 then
showye=10
End if
for i=1 to showye
if i=currentpage then
%>
<%=i%>
<%else%>
<a href="admin_news.asp?page=<%=i%>"><%=i%></a>
<%End if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
End if%>
<a href="admin_news.asp?page=<%=page%>" title="下一页">>></a>
<%End if%>
<input type="text" name="page" class="textarea" size="4">
<input type="submit" name="Submit" value="Go" class="button"></td>
</tr>
</form>
</table>
<br>
<%if request.QueryString("action")="newnews" then%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="<%=MM_editAction%>">
<tr>
<td colspan="2" bgcolor="#E8E8E8"><a name="newnews">新的信息</a></font></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">作者-
<input name="news_author" type="text" class="textarea" value="Admin" size="20">
是否置顶：
<select name="news_keyword"class="textarea">
<option value="0" selected>不置顶</option>
<option value="1">置顶</option>
</select> </td>
</tr>
<tr>
<td width="30%" bgcolor="#FFFFFF" class="chinese">图片-
<input type="text" name="news_ahome" class="textarea" size="30"> </td>
<td bgcolor="#FFFFFF" class="chinese"><iframe src="upinc.asp?n=news_ahome&x=0" height="30" width="60%" frameborder="0"></iframe></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">标题-
<input type="text" name="news_title" class="textarea" size="50"> </td>
</tr>
<tr>
<td height="31" colspan="2" bgcolor="#FFFFFF" class="chinese">选择分类:
<select name="news_class_id" id="news_class_id">
<option value="" selected>-请选择信息分类-</option>
<%
'###############取出类别分类#################
dim sql_news,rs_news
sql_news="select news_id,news_type from news_class"
set rs_news=server.createobject("adodb.recordset")
rs_news.open sql_news,conn,1,1
if Not(rs_news.BOF and rs_news.EOF) then
Do While Not rs_news.EOF
%>
<option value="<%= rs_news("news_id") %>"><%= rs_news("news_type") %></option>
<%
rs_news.movenext
loop
rs_news.close
set rs_news=Nothing
'conn.close
'set conn=Nothing
End if
'####################取出分类结束#####################
%>
</select> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">
<textarea name="news_content" style="display:none"></textarea>
<iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=news_content&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#F5F5F5" class="chinese">
<input type="submit" name="Submit2" value="确定新增" class="button">
<input type="reset" name="Reset" value="清空重填" class="button"> </td>
</tr>
<input type="hidden" name="action" value="newnews">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%End if
if request.QueryString("action")="editnews" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
Call diserror()
response.End
else
if Not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的信息ID参数！"
Call diserror()
response.End
End if
End if
sql="select * from news where news_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="<%=MM_editAction%>">
<tr>
<td colspan="2" bgcolor="#E8E8E8"><a name="editnews">修改信息</a></font></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">作者-
<input type="text" name="news_author" size="20" class="textarea" value="<%=rs("news_author")%>">
是否推荐：
<select name="news_keyword"class="textarea">
<option value="<%=rs("news_keyword")%>" selected><%if rs("news_keyword") =0 then %>不置顶<%else%>置顶<%end if%></option>
<option value="0" >不置顶</option>
<option value="1">置顶</option>
</select> </td>
</tr>
<tr>
<td width="30%" bgcolor="#FFFFFF" class="chinese">图片-
<input type="text" name="news_ahome" class="textarea" size="30" value="<%=rs("news_ahome")%>"> </td>
<td bgcolor="#FFFFFF" class="chinese"><iframe src="upinc.asp?n=news_ahome&x=0" height="30" width="60%" frameborder="0"></iframe></td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">标题-
<input type="text" name="news_title" class="textarea" size="50" value="<%=rs("news_title")%>"> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">选择类别:
<select name="news_class_id" id="news_class_id">
<%
'###############取出类别分类#################
'dim sql_p,rs_p
sql_p="select news_id,news_type from news_class"
set rs_p=server.createobject("adodb.recordset")
rs_p.open sql_p,conn,1,1
if Not(rs_p.BOF and rs_p.EOF) then
Do While Not rs_p.EOF
%>
<option value="<%= rs_p("news_id") %>" <% if rs_p("news_id")=rs("news_class_id") then Response.Write("selected") End if %> ><%= rs_p("news_type") %></option>
<%
rs_p.movenext
loop
rs_p.close
set rs_p=Nothing
'conn.close
'set conn=Nothing
End if
'####################取出分类结束#####################
%>
</select> </td>
</tr>
<tr>
<td colspan="2" bgcolor="#FFFFFF" class="chinese">
<textarea name="news_content" style="display:none"><%=Server.HTMLEncode(Rs("news_Content"))%></textarea>
<iframe ID="eWebEditor1" src="eWebEditor/ewebeditor.asp?id=news_content&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> </td>
</tr>
<tr>
<td height="30" colspan="2" align="center" bgcolor="#F5F5F5" class="chinese">
<input type="submit" name="Submit" value="确定修改" class="button">
<input type="reset" name="Reset" value="清空重填" class="button">
[<a href="admin_news.asp">返回</a>] </td>
</tr>
<input type="hidden" name="id" value="<%=rs("news_id")%>">
<input type="hidden" name="action" value="editnews">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%End if
if request.QueryString("action")="delnews" then
if request.querystring("id")="" then
errmsg=errmsg+"<br>"+"<li>请指定操作的对象！"
Call diserror()
response.End
else
if Not isinteger(request.querystring("id")) then
errmsg=errmsg+"<br>"+"<li>非法的信息ID参数！"
Call diserror()
response.End
End if
End if
sql="select * from news where news_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1%>
<table align="center" width="98%" border="1" cellspacing="0" cellpadding="4" bordercolor="#C0C0C0" style="border-collapse: collapse">
<form name="form1" method="post" action="<%=MM_editAction%>">
<tr>
<td bgcolor="#E8E8E8"><a name="delnews" id="delnews">删除信息</a></font></td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">作者- <%=rs("news_author")%>
关键字- <%=rs("news_keyword")%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">图片- <%=rs("news_ahome")%> </td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese">标题- <%=rs("news_title")%>
</td>
</tr>
<tr>
<td bgcolor="#FFFFFF" class="chinese"><%=rs("news_content")%> </td>
</tr>
<tr>
<td bgcolor="#F5F5F5" class="chinese" height="30" align="center">
<input name="Submit" type="submit" class="button" id="Submit" value="确定删除">
[<a href="admin_news.asp">返回</a>] </td>
</tr>
<input type="hidden" name="id" value="<%=rs("news_id")%>">
<input type="hidden" name="action" value="delnews">
<input type="hidden" name="MM_insert" value="true">
</form>
</table>
<%End if%>
<br>
</td>
</tr>
<tr>
<td colspan="3" height="1" background="images/dotlineh.gif"></td>
</tr>
</table>
<%
rs.close
set rs=Nothing
End sub%>